#!/usr/bin/perl -w

# ARGV[0] allowed settings:
# storage	- indicates the storage specification types support by this
#           	  type of virtual machine.
# lmigrate	- Should print yes or no to indicate whether live
#		  migration is supported or not.
# desc		- Print out a single line description of this VM type.

exit(1) if !@ARGV;

if($ARGV[0] eq "storage") {
	print "nfs\ndrbd8\nraw\n";
	exit(0);
}

if($ARGV[0] eq "lmigrate") {
	print "no\n";
	exit(0);
}

if($ARGV[0] eq "desc") {
	print "Dummy Virtual Machine.\n";
	exit(0);
}

exit(1);
